Dim fso
Dim ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile("result.txt")
ts.WriteLine(CStr(Now()) & " - Done")
ts.Close